Imports System.IO

''' <summary>
''' 
''' </summary>
''' <remarks></remarks>
Public Class CompareFileInfo
    Implements IComparer

    Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements IComparer.Compare
        Dim File1 As FileInfo
        Dim File2 As FileInfo
        File1 = CType(x, FileInfo)
        File2 = CType(y, FileInfo)
        Compare = DateTime.Compare(File1.LastWriteTime.ToLongTimeString, File2.LastWriteTime.ToLongTimeString)
    End Function

End Class
